home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / castle siege (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  93 lines
  1. 0 poke55,255:poke56,55:poke53272,21:poke53248+16,.:poke53281,.:poke53280,.
  2. 1 poke53248,.:poke53249,.
  3. 2 ifa>0 then 6
  4. 3 gosub60500
  5. 5 a=1:load"castle.fnt",8,1
  6. 6 :
  7. 7 print"[147]":restore:h=0
  8. 10 f=6:q=rnd(ti)*11+1876
  9. 11 print"[147][152]"
  10. 15 poke832,128:forx=833to833+62:pokex,.:next
  11. 16 poke 53272,(peek(53272)and240)or14
  12. 20 data 139,140,141,142,143,144,171,172
  13. 30 data 173,174,175,176,203,204,205,206
  14. 40 data 207,208,235,236,237,238,239,240
  15. 50 forx=1to160 step40
  16. 51 fory=0to5
  17. 52 readm:pokeq+x+y,m:pokeq+x+y+54272,12:
  18. 53 next
  19. 54 next
  20. 60 poke53281,0:s=54296:v=53248:poke2040,13:poke832,128:pokev+29,1:pokev+39,1
  21. 62 ao=54272
  22. 65 forex=1to8:e=int(rnd(ti)*35)+4:poke1984+e,184:poke56256+e,5:next
  23. 70 iff=1then61500
  24. 80 pokev+21,0:poke1985,177:poke1986,178:poke1987,179:poke1988,180:poke1946,181
  25. 81 x=38:y=230:g=0:f=f-1
  26. 82 poke1985+ao,12:poke1986+ao,12:poke1987+ao,12:poke1988+ao,12:poke1946+ao,12
  27. 90 printf;"[154]shots to go.":print" enter elevation (1-86 deg)        [157][157][157][157][157][157][157]:";
  28. 91 gosub 61000:d=val(b$):print"[157]"
  29. 95 pokev+16,.:ad=0:poke53248,.:poke53249,.:pokev+31,.
  30. 100 ifd<1ord>86then90
  31. 110 r=(NULL)/(180/d):a=tan(r):b=3.3*cos(r):poke1946,182:pokev+21,1:pokes,15:pokes,0
  32. 115 x=x+b:ifx>255 then x=abs(x-256):pokev+16,1:pokev,x:ad=255
  33. 120 y=y-(b*a)+g:g=g+.05:ify>250thenforj=0to999:next:goto70
  34. 130 pokev,x:pokev+1,y
  35. 140 if peek(v+31)<>1 then 115
  36. 141 lc=1024+int((y-50)/8)*40+int((x+ad-24)/8)
  37. 142 if peek(lc)>144andpeek(lc)<150 then 150
  38. 143 if peek(lc)=184 then ch=185:goto 146
  39. 144 if peek(lc)=185 then ch=32 :goto 146
  40. 145 pokelc,int(rnd(1)*4)+145:h=h+1:goto 150
  41. 146 pokelc,186:forj=1to100:next
  42. 147 pokelc,187:forj=1to100:next
  43. 148 pokelc,ch
  44. 149 :
  45. 150 pokes,15:pokes,0:pokev+31,.:goto115
  46. 60500 rem
  47. 60510 ifa=0 thenprint"[147]"
  48. 60530 print""
  49. 60540 print"[158] [223][223][146]  [223]  [223][146][223]  [223][146][223]  [223][146][223]  [223][146][223]   [223][146][223]  [223][146][223]  [223]"
  50. 60550 print"  [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223][223][146]   [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223]"
  51. 60560 print"   [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223][223][146][223]  [223][146] [223][223][146]  [223][223][146][223][223][146][223][223] "
  52. 60570 print"    [223][223][146]  [223][223][146][223][223][146][223]  [223][146][223][223][146][223][223][146]  [223][223][146] [223][223][146]  [223]  [223][146][223] [164][223]"
  53. 60580 print"     [223]  [223][146][223]  [223][146][223][223][146][223][223][146][223]  [146] [223]  [223][146] [223][223][146]  [223][223][146][223][223][146][223][223][146][223][223]"
  54. 60730 print
  55. 60770 print"          [154]proudly presents ...."
  56. 60780 print
  57. 60790 print"[155]         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  58. 60800 print"[155]        [176][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][174]"
  59. 60810 print"[155]       [176][219][189]                    [173][219][174]"
  60. 60820 print"[155]       [221][221]     castle siege[155]     [221][221]"
  61. 60830 print"[155]       [221][221]                      [221][221]"
  62. 60840 print"[155]       [221][221]          by          [155][221][221]"
  63. 60850 print"[155]       [221][221]                      [221][221]"
  64. 60860 print"[155]       [221][221]  bob & david snader  [155][221][221]"
  65. 60870 print"[155]       [221][221]                      [221][221]"
  66. 60880 print"[155]       [221][221]       (c) 1987       [155][221][221]"
  67. 60890 print"[155]       [173][219][174]                    [176][219][189]"
  68. 60900 print"        [173][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][189]"
  69. 60910 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  70. 60950 return
  71. 61000 poke198,.:b$="":print"[164]";:w=1
  72. 61005 geta$:ifa$=""then61005
  73. 61006 ifa$=chr$(13)then print"[157] ":return
  74. 61010 ifa$=chr$(20)andw>1 then w=w-1:b$=left$(b$,w-1):print"[157][157]  [157][157][164]";:goto 61005
  75. 61012 ifa$=chr$(20) then 61005
  76. 61013 if w>2 then 61005
  77. 61020 ifa$<"0" or a$>"9" then 61005
  78. 61025 b$=b$+a$:print"[157]"a$;:poke212,.:print"[164]";
  79. 61030 w=w+1:goto 61005
  80. 61500 :poke53272,21:poke53269,.
  81. 61503 print"[147]":ifh>14 then print"  the castle was successfully sieged!!
  82. 61505 [153]:[153]"          you made "h"hits"
  83. 61507 [139] h[179]15 [167] [153]"print    better luck next time warrior !!"
  84. 61510 [153]"   do you wish to play again ? "
  85. 61512 [153]"           y)es or n)o "
  86. 61515 [161]a$:[139]a$[178]""[167]61515
  87. 61520 [139]a$[178]"y"[176]a$[178]"(NULL)"[167]:[151]53272,21:[137] 7
  88. 61525 [139]a$[178]"(NULL)"[176]a$[178]"n" [167] 61700
  89. 61550 [137] 61515
  90. 61700 [153]"load":[159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  91. 61705 [139] er[179][177]63 [167] [128]
  92. 61710 [147]"hello connect",8
  93.